home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 93 / 64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64 / on error goto (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  727 b   |  28 lines
  1. 100 rem *** on error und goto x ***
  2. 101 data32,253,174,32,107,169,165,20
  3. 102 data164,21,133,247,132,248,169,116
  4. 103 data160,195,141,0,3,140,1,3,96,169
  5. 104 data139,160,227,141,0,3,140,1,3
  6. 105 data96,138,48,30,165,58,201,255
  7. 106 data240,27,134,2,165,57,164,58,133
  8. 107 data249,132,250,165,247,164,248
  9. 108 data133,20,132,21,32,163,168,76
  10. 109 data174,167,76,116,164,138,76,58
  11. 110 data164,32,253,174,32,138,173,32
  12. 111 data247,183,76,143,195
  13. 112 s=0:fori= 50000 to 50087 :readd
  14. 113 poke i,d:s=s+d:next
  15. 114 print"die datazeilen sind"
  16. 115 ifs<>10886thenprint"fehlerhaft":stop
  17. 116 print"in ordnung":end
  18. 120 :
  19. 130 :
  20. 200 rem beispiel fuer on error und goto x
  21. 210 sys50000,1000
  22. 220 input"eine zahl ";a
  23. 230 wu=sqr(a):print"die wurzel aus"a"="wu
  24. 240 end
  25. 1000 print"fehler nummer"peek(2)
  26. 1010 zl=peek(249)+peek(250)*256-10
  27. 1020 sys50076,zl
  28.